home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / gadmods.gc < prev    next >
Text File  |  1999-05-14  |  2KB  |  99 lines
  1. G4C
  2.  
  3.  
  4. ; -----  Gadget Modifiers : GadFont, GadTitle, GadKey, and GadTxt
  5.  
  6. WinBig -1 -1 400 150 "GadMods.gc"
  7. WinType 11110001
  8.  
  9.  
  10. ; ---- Decorations
  11. BOX 0 0 0 0 OUT RIDGE
  12. SQUARE 6 18 192 63 2 NOFILL
  13. SQUARE 202 18 192 63 2 NOFILL
  14. SQUARE 6 82 192 63 2 NOFILL
  15. SQUARE 202 82 192 63 2 NOFILL
  16. LINE 6 81 392 81 3
  17. LINE 198 18 198 144 3
  18. LINE 200 18 200 144 3
  19.  
  20. xonLoad
  21.     GuiOpen GadMods.gc
  22.  
  23. xonClose
  24.     GuiQuit GadMods.gc
  25.  
  26. ; ---- Headings
  27.  
  28. Text 130 4 100 12 'Gadget Modifiers' 17 NOBOX
  29. Text 80 20 60 10 'GadFont' 7 NOBOX
  30. Text 260 20 70 10 'GadTitle' 8 NOBOX
  31. Text 25 84 190 10 'GadKey - Press them' 20 NOBOX
  32. Text 270 84 60 10 'GadTxt' 8 NOBOX
  33.  
  34. ; ------------ GadFont
  35.  
  36. xButton 50 30 100 12 "topaz 9"
  37.     GadFont topaz.font 9 000
  38.  
  39. xButton 50 45 100 15 "topaz 11"
  40.     GadFont topaz.font 11 000
  41.  
  42. xButton 30 63 140 12 "topaz 9 BOLD"
  43.     GadFont topaz.font 9 010
  44.  
  45. ; ------------ GadTitle
  46.  
  47. xTextIn 220 40 40 12 'Above' v '' 32
  48.     GadTitle ABOVE
  49.  
  50. xTextIn 290 40 40 12 'Right' v '' 32
  51.     GadTitle RIGHT
  52.  
  53. xTextIn 220 54 40 12 'Below' v '' 32
  54.     GadTitle BELOW
  55.  
  56. xTextIn 330 54 40 12 'Left' v '' 32
  57.     ;GadTitle LEFT
  58.  
  59. ; ------------ GadKey
  60. ;    Allows a key press as a 'short cut' for a button
  61.  
  62. xButton 40 96 32 12 'A'
  63.     GadKey A
  64.     Update Gadmods.gc 1 'That was A'
  65.  
  66.  
  67. xButton 40 112 32 12 '_B'
  68.     ; GadKey is not used here. Instead, the underscore character
  69.     ; precedes the letter B, which has the same effect.
  70.     Update Gadmods.gc 1 'That was B'
  71.  
  72.  
  73. xButton 20 128 82 12 "A space"
  74.     ; Here, the NUMBER of the key is given instead of a character.
  75.     ; '32' is a space, and the '#' sets the command to read a number.
  76.     ; See elsewhere for coverage of VANILLA and RAW keys.
  77.     GadKey #32
  78.     Update Gadmods.gc 1 'A Space'
  79.  
  80.  
  81. ;    A text gadget to show confirmation of the keypresses.
  82.  
  83. Text 110 104 60 12 '          ' 10 NOBOX
  84.     gadid 1
  85.  
  86. ;-------------- GadTxt
  87. ;     Position text left, centre, or right
  88.  
  89. Text 226 98 140 12 'Left' 4 BOX
  90.     GadTxt Left
  91.  
  92. ;      'Centre' in real English ; 'Center' in American English
  93. Text 226 113 140 12 'Centre' 6 BOX
  94.     GadTxt Center
  95.  
  96. Text 226 128 140 12 'Right' 5 BOX
  97.     GadTxt Right
  98.  
  99.